home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 17 / cdrt17.iso / pc / stones / promo.dir / 00005_Script_Main Movie Script < prev    next >
Text File  |  1995-07-08  |  774b  |  45 lines
  1. On StartMovie 
  2.   global FixPal,rwobj, pathseparator
  3.   
  4.   if the machinetype  <>256 then
  5.     
  6.     OpenXLib the pathname & "Media:RearWindow.XObj"
  7.     
  8.     set rwObj = RearWindow( mNew, "S" )
  9.     
  10.     if the  colorDepth = 8 then
  11.       rwObj( mIndexColorToWindow, 256 )
  12.     end if
  13.     
  14.     if  the  colorDepth = 16 then
  15.       rwObj( mIndexColorToWindow, 1 )
  16.     end if
  17.     
  18.     Set fixpal=Fixpalette(mNew,The stageLeft,The StageTop,The StageRight,The StageBottom)
  19.   end if
  20.   
  21. end
  22.  
  23. On Patchpal
  24.   global fixpal
  25.   
  26.   if the machinetype = 256 then
  27.     nothing
  28.   else
  29.     fixpal(mPatchIt)
  30.   end if
  31.   
  32. end
  33.  
  34. On StopMovie
  35.   global Fixpal, rwobj
  36.   if the machinetype <> 256 then
  37.     rwobj(mDispose)
  38.     fixpal(mDispose)
  39.   end if
  40.   
  41.   
  42. end 
  43.  
  44.  
  45.